home *** CD-ROM | disk | FTP | other *** search
/ A.C.E. 2 / ACE CD 2.iso / FILES / UTILS / HSBASIC2.DMS / in.adf / HB2Includes.Lha / Rexx / EQUToBC.rexx < prev   
Encoding:
OS/2 REXX Batch file  |  1994-05-05  |  438 b   |  18 lines
  1. /**
  2.  * $Id: EQUToBC.rexx,v 1.3 1994/05/05 09:18:54 alex Rel $
  3.  *
  4.  * REXX program to extract string IDs from CatComp .asm files as a BASIC .bc file
  5.  *
  6.  * rx DefToBC.rexx <CatalogName.asm >CatalogName.bc
  7.  *
  8.  * (c) Copyright 1994 HiSoft
  9. **/
  10.  
  11. do while ~eof(stdin)
  12.     srcln = translate(readln(stdin), ' ', '09'X)
  13.     parse var srcln LABEL OPCODE OPERAND COMMENT
  14.     if trim(upper(OPCODE)) = 'EQU' then do
  15.         say 'CONST' LABEL || '& =' OPERAND
  16.     end
  17. end
  18.